﻿Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) _
        Handles Button1.Click
    ' visualizza le due proprietà salvate
    MessageBox.Show("Nome: " & My.Settings.Item("Nome").ToString &
                    Environment.NewLine &
                    "URL: " & My.Settings.Item("URL").ToString)
    ' modifica la seconda proprietà, poi la visualizza
    My.Settings.Item("Nome") = "Blog"
    My.Settings.Item("URL") =
      "http://deghetto.wordpress.com"
    MessageBox.Show("Nome: " & My.Settings.Item("Nome").ToString &
                    Environment.NewLine &
                    "URL: " & My.Settings.Item("URL").ToString)
    ' ripristina i valori iniziali
    My.Settings.Item("Nome") = "Community DotNetWork.it"
    My.Settings.Item("URL") =
      "http://www.dotnetwork.it"
  End Sub
End Class
